VBA设置打印机和纸张 | 您所在的位置:网站首页 › vba pagesetup zoom › VBA设置打印机和纸张 |
Sub 连续打印()
rs = Sheets("合计金额").Cells(Rows.Count, 7).End(xlUp).Row
ar = Sheets("合计金额").Range("g1:g" rs)
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) "" Then
With Sheets("表单列印")
.[j6] = ar(i, 1)
.PrintOut Copies:=1, Collate:=True, ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"
End With
End If
Next i
End Sub
说明:每个机器定义的打印机和尺寸都不一样的,如果要知道如何自己的打印机和纸张,可以用录制新宏的方法,找到自己的打印机和尺寸编号。我公司的打印机设置是这样的:ActivePrinter:="\\PC-20180330UQSC\Fujitsu DPK720 在 Ne03:,PaperSize = 124"
共享打印机的电脑如果重装系统,那么要重新定义这段程序的打印机设置。
在装有共享打印机的那台电脑里,端口是USB001,之前改为Lpt1,结果打印出错。将端口改回来就好了。每个人的电脑不一样,都要按照实际情况来设置。PaperSize = 124,表明设置的打印纸张格式是【NFCP 窄行连续 240mm 二等分】格式。
至于为什么端口是Ne03,在注册表中展开路径为[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts],里面可以看到自己电脑打印机的端口。 VBA 打印设置相关属性及方法打印设置说明,以下均为默认值。 With ActiveSheet.PageSetup .PrintTitleRows = ""'工作表打印标题:顶端标题行(R) .PrintTitleColumns = "" '工作表打印标题:左端标题列(C) End With ActiveSheet.PageSetup.PrintArea = ""'工作表打印区域(A) With ActiveSheet.PageSetup .LeftHeader = ""'自定义页眉:左(L) .CenterHeader = "" '页眉/自定义页眉:中(C) .RightHeader = "" '自定义页眉:右(R) .LeftFooter = ""'自定义页脚:左(L) .CenterFooter = "" '页脚/自定义页脚:中(C) .RightFooter = "" '自定义页脚:右(R) .LeftMargin = Application.InchesToPoints(0.75) '页边距:左(L)_1.9厘米 .RightMargin = Application.InchesToPoints(0.75) '页边距:右(R)_1.9厘米 .TopMargin = Application.InchesToPoints(1) '页边距:上(T)_2.5厘米 .BottomMargin = Application.InchesToPoints(1) '页边距:下(B)_2.5厘米 .HeaderMargin = Application.InchesToPoints(0.5) '页边距:页眉(A)_1.3厘米 .FooterMargin = Application.InchesToPoints(0.5) '页边距:页脚(F)_1.3厘米 .PrintHeadings = False '工作表打印:行号列标(L) .PrintGridlines = False '工作表打印:网格线(G) .PrintComments = xlPrintNoComments '工作表打印批注(M):无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace .PrintQuality = 180 '页面打印质量(Q):180/360点 英寸 .CenterHorizontally = False '页边距居中方式:水平(Z) .CenterVertically = False '页边距居中方式:垂直(V) .Orientation = xlPortrait '页面方向:纵向(T) xlPortrait/ 横向 (L)xlLandscape .Draft = False '工作表打印:按草稿方式(Q) .PaperSize = xlPaperA4 '页面纸张大小(Z):A4 .FirstPageNumber = xlAutomatic '页面起始页码:自动 .Order = xlDownThenOver '工作表打印顺序:先列后行(D)/先行后列(V) xlOverThenDown .BlackAndWhite = False '工作表打印:单色打印(B) .Zoom = 100 '页面缩放比例:100% 若选择页面缩放比例,则下面两项没有。 .Zoom = False '页面缩放比例:未选择 若选择调整页面则此项必为False,且与下面两项一起出现。 .FitToPagesWide = 1 '页面缩放:调整为1页高 .FitToPagesTall = 1 '页面缩放:调整为1页宽 .PrintErrors = xlPrintErrorsDisplayed '工作表打印错误单元格打印为(E):显示值/空白xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA EndWith 详情:http://www.cnblogs.com/go-jzg/p/5738169.html sub dayin()\x0d\x0a Application.ActiveSheet.PrintOut copies:=1\x0d\x0aend sub\x0d\x0a这是打印当前的工作表 打印一份\x0d\x0a如果是打印当前工作薄中的工作表\x0d\x0aExcel.ActiveWorkBook.PrintOut(1,Excel.WorkSheets.count,1,.T.) 带参数的打印\x0d\x0a参数说明:共四个参数\x0d\x0a参数1-数值:当前工作簿中进行打印的起始工作表号(默认1)参数2-数值:当前工作簿中进行打印的结束工作表号(默认最末)\x0d\x0a参数3-数值:打印份数(默认1)\x0d\x0a参数4-逻辑值:是预览打印还是直接打印:.T.-预览打印,.F.-直接打印(默认.F.)\x0d\x0aExcel.ActiveSheet.PrintOut()\x0d\x0a参数说明:共八个参数\x0d\x0a参数1-数值:起始页号,省略则默认为开始位置参数2-数值:终止页号,省略则默认为最后一页\x0d\x0a参数3-数值:打印份数,省略则默认为1份\x0d\x0a参数4-逻辑值:是否预览,省略则默认为直接打印(.F.)\x0d\x0a参数5-字符值:设置活动打印机名称,省略则为默认打印机\x0d\x0a参数6-逻辑值:是否输出到文件,省略则默认为否(.F.),若选.T.且参数8为空,则Excel提示输入要输出的文件名\x0d\x0a参数7-逻辑值:输出类型,省略则默认为(.T.)逐份打印,否则逐页打印\x0d\x0a参数8-字符值:当参数6为.T.时,设置要打印到的文件名\x0d\x0aExcel.ActiveSheet.PrintOut(1,3,6,.F.,"MyPrinter",.F.,.T.,,) 从1页打印到3页,打印6份,通过MyPrinter打印机来打印,并且,要逐份打印。欢迎分享,转载请注明来源:内存溢出 原文地址:https://outofmemory.cn/tougao/7885575.html |
CopyRight 2018-2019 实验室设备网 版权所有 |